home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / linklist.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  9KB  |  336 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    LinkList_c
  18. #define    ivType    LinkList_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    LinkList_c;
  23.  
  24.  
  25. #line 26 "linklist.c"
  26. typedef struct  _LinkList_iv_t  {
  27.     int iNelm;
  28.     CRITICALSECTION iCS;
  29. }    LinkList_iv_t;
  30.  
  31.  
  32. #line 22 "linklist.d"
  33. #define FIRST gNext 
  34. #define LAST gPrevious 
  35.  
  36. cmeth objrtn LinkList_cm_gNew(object self)
  37. { 
  38.     object obj = oSuper(LinkList_c, gNew, self)(self); 
  39.     accessIVsOf(obj); 
  40.     INITIALIZECRITICALSECTION(iv->iCS); 
  41.     gInitLink(obj, obj, obj, obj); 
  42.     return obj; 
  43. } 
  44.  
  45. imeth objrtn LinkList_im_gIncNelm(object self, int inc)
  46. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  47.     if (0 > (iv->iNelm += inc)) 
  48.         iv->iNelm = 0; 
  49.     return self; 
  50. } 
  51.  
  52. imeth int LinkList_im_gSize(object self)
  53. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  54.     return iv->iNelm; 
  55. } 
  56.  
  57. imeth objrtn LinkList_im_gFirst(object self)
  58. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  59.     object r; 
  60.     ENTERCRITICALSECTION(iv->iCS); 
  61.     r = FIRST(self); 
  62.     LEAVECRITICALSECTION(iv->iCS); 
  63.     return r; 
  64. } 
  65.  
  66. imeth objrtn LinkList_im_gLast(object self)
  67. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  68.     object r; 
  69.     ENTERCRITICALSECTION(iv->iCS); 
  70.     r = LAST(self); 
  71.     LEAVECRITICALSECTION(iv->iCS); 
  72.     return r; 
  73. } 
  74.  
  75. imeth objrtn LinkList_im_gAddFirst(object self, object lnk)
  76. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  77.     ChkArg(lnk, 2); 
  78.     ENTERCRITICALSECTION(iv->iCS); 
  79.     gAddAfter(self, lnk); 
  80.     LEAVECRITICALSECTION(iv->iCS); 
  81.     return self; 
  82. } 
  83.  
  84. imeth objrtn LinkList_im_gAddLast(object self, object lnk)
  85. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  86.     ChkArg(lnk, 2); 
  87.     ENTERCRITICALSECTION(iv->iCS); 
  88.     gAddBefore(self, lnk); 
  89.     LEAVECRITICALSECTION(iv->iCS); 
  90.     return self; 
  91. } 
  92.  
  93. imeth objrtn LinkList_im_gInsertObjAt(object self, object lnk, int idx)
  94. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  95.     ChkArg(lnk, 2); 
  96.     ENTERCRITICALSECTION(iv->iCS); 
  97.     if (!idx || idx < -iv->iNelm) 
  98.         gAddAfter(self, lnk); 
  99.     else if (idx == -1 || idx >= iv->iNelm) 
  100.         gAddBefore(self, lnk); 
  101.     else if (idx > 0) 
  102.         gAddAfter(gNth(self, idx), lnk); 
  103.     else 
  104.         gAddBefore(gNth(self, idx+1), lnk); 
  105.     LEAVECRITICALSECTION(iv->iCS); 
  106.     return self; 
  107. } 
  108.  
  109. imeth objrtn LinkList_im_gDisposeFirst(object self)
  110. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  111.     ENTERCRITICALSECTION(iv->iCS); 
  112.     if (iv->iNelm) 
  113.         gDispose(FIRST(self)); 
  114.     LEAVECRITICALSECTION(iv->iCS); 
  115.     return self; 
  116. } 
  117.  
  118. imeth objrtn LinkList_im_gDeepDisposeFirst(object self)
  119. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  120.     ENTERCRITICALSECTION(iv->iCS); 
  121.     if (iv->iNelm) 
  122.         gDeepDispose(FIRST(self)); 
  123.     LEAVECRITICALSECTION(iv->iCS); 
  124.     return self; 
  125. } 
  126.  
  127. imeth objrtn LinkList_im_gRemoveFirst(object self)
  128. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  129.     object r; 
  130.     ENTERCRITICALSECTION(iv->iCS); 
  131.     r = iv->iNelm ? gRemove(FIRST(self)) : NULLOBJ; 
  132.     LEAVECRITICALSECTION(iv->iCS); 
  133.     return r; 
  134. } 
  135.  
  136. imeth objrtn LinkList_im_gDisposeLast(object self)
  137. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  138.     ENTERCRITICALSECTION(iv->iCS); 
  139.     if (iv->iNelm) 
  140.         gDispose(LAST(self)); 
  141.     LEAVECRITICALSECTION(iv->iCS); 
  142.     return self; 
  143. } 
  144.  
  145. imeth objrtn LinkList_im_gDeepDisposeLast(object self)
  146. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  147.     ENTERCRITICALSECTION(iv->iCS); 
  148.     if (iv->iNelm) 
  149.         gDeepDispose(LAST(self)); 
  150.     LEAVECRITICALSECTION(iv->iCS); 
  151.     return self; 
  152. } 
  153.  
  154. imeth objrtn LinkList_im_gRemoveLast(object self)
  155. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  156.     object r; 
  157.     ENTERCRITICALSECTION(iv->iCS); 
  158.     if (iv->iNelm) 
  159.         r = gRemove(LAST(self)); 
  160.     else 
  161.         r = NULL; 
  162.     LEAVECRITICALSECTION(iv->iCS); 
  163.     return r; 
  164. } 
  165.  
  166. imeth objrtn LinkList_im_gDisposeAllNodes(object self)
  167. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  168.     object obj; 
  169.  
  170.     ENTERCRITICALSECTION(iv->iCS); 
  171.     while (obj = FIRST(self)) 
  172.         gDispose(obj); 
  173.     LEAVECRITICALSECTION(iv->iCS); 
  174.     return self; 
  175. } 
  176.  
  177. imeth objrtn LinkList_im_gDeepDisposeAllNodes(object self)
  178. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  179.     object obj; 
  180.  
  181.     ENTERCRITICALSECTION(iv->iCS); 
  182.     while (obj = FIRST(self)) 
  183.         gDeepDispose(obj); 
  184.     LEAVECRITICALSECTION(iv->iCS); 
  185.     return self; 
  186. } 
  187.  
  188. imeth objrtn LinkList_im_gDispose(object self)
  189. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  190.     gDisposeAllNodes(self); 
  191.     DELETECRITICALSECTION(iv->iCS); 
  192.     return oSuper(LinkList_c, gDispose, self)(self); 
  193. } 
  194.  
  195. imeth objrtn LinkList_im_gDeepDispose(object self)
  196. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  197.     gDeepDisposeAllNodes(self); 
  198.     DELETECRITICALSECTION(iv->iCS); 
  199.     return oSuper(LinkList_c, gDeepDispose, self)(self); 
  200. } 
  201.  
  202. imeth objrtn LinkList_im_gSequence(object self)
  203. { 
  204.     return gNewWithObj(LinkSequence, FIRST(self)); 
  205. } 
  206.  
  207. imeth objrtn LinkList_im_gCopy(object self)
  208. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  209.     object nobj; 
  210.     ivType *iv2; 
  211.     object lnk; 
  212.  
  213.     ENTERCRITICALSECTION(iv->iCS); 
  214.     nobj = oSuper(LinkList_c, gCopy, self)(self); 
  215.     iv2 = ivPtr(nobj); 
  216.     iv2->iNelm = 0; 
  217.     gInitLink(nobj, nobj, nobj, nobj); 
  218.     for (lnk=FIRST(self) ; lnk ; lnk = gNext(lnk)) 
  219.         gAddBefore(nobj, gCopy(lnk)); 
  220.     LEAVECRITICALSECTION(iv->iCS); 
  221.     return nobj; 
  222. } 
  223.  
  224. imeth objrtn LinkList_im_gDeepCopy(object self)
  225. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  226.     object nobj; 
  227.     ivType *iv2; 
  228.     object lnk; 
  229.  
  230.     ENTERCRITICALSECTION(iv->iCS); 
  231.     nobj = oSuper(LinkList_c, gDeepCopy, self)(self); 
  232.     iv2 = ivPtr(nobj); 
  233.     iv2->iNelm = 0; 
  234.     gInitLink(nobj, nobj, nobj, nobj); 
  235.     for (lnk=FIRST(self) ; lnk ; lnk = gNext(lnk)) 
  236.         gAddBefore(nobj, gDeepCopy(lnk)); 
  237.     LEAVECRITICALSECTION(iv->iCS); 
  238.     return nobj; 
  239. } 
  240.  
  241. imeth objrtn LinkList_im_gStringRep(object self)
  242. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  243.     object lnk, s, t; 
  244.  
  245.     ENTERCRITICALSECTION(iv->iCS); 
  246.     s = oSuper(LinkList_c, gStringRepValue, self)(self); 
  247.     gAppend(s, (object) "  ("); 
  248.     for (lnk = FIRST(self) ; lnk ; ) { 
  249.         t = gStringRepValue(lnk); 
  250.         if (lnk = gNext(lnk)) 
  251.             vBuild(s, NULL, t, ", ", NULL); 
  252.         else 
  253.             gAppend(s, t); 
  254.         gDispose(t); 
  255.     } 
  256.     gAppend(s, (object) ")\n"); 
  257.     LEAVECRITICALSECTION(iv->iCS); 
  258.     return s; 
  259. } 
  260.  
  261. imeth objrtn LinkList_im_gEnterCriticalSection(object self)
  262. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  263.     ENTERCRITICALSECTION(iv->iCS); 
  264.     return self; 
  265. } 
  266.  
  267. imeth objrtn LinkList_im_gLeaveCriticalSection(object self)
  268. { LinkList_iv_t *iv = GetIVs(LinkList, self);
  269.     LEAVECRITICALSECTION(iv->iCS); 
  270.     return self; 
  271. } 
  272.  
  273.  
  274. #line 275 "linklist.c"
  275.  
  276. objrtn    LinkList_initialize(void)
  277. {
  278.     static  CRITICALSECTION  cs;
  279.     static  int volatile once = 0;
  280.  
  281.     ENTERCRITICALSECTION(_CI_CS_);
  282.     if (!once) {
  283.         INITIALIZECRITICALSECTION(cs);
  284.         once = 1;
  285.     }
  286.     LEAVECRITICALSECTION(_CI_CS_);
  287.  
  288.     ENTERCRITICALSECTION(cs);
  289.  
  290.     if (LinkList_c) {
  291.         LEAVECRITICALSECTION(cs);
  292.         return LinkList_c;
  293.     }
  294.     INHIBIT_THREADER;
  295.     Link_initialize();
  296.     if (LinkList_c)  {
  297.         ENABLE_THREADER;
  298.         LEAVECRITICALSECTION(cs);
  299.         return LinkList_c;
  300.     }
  301.     LinkList_c = gNewClass(Class, "LinkList", sizeof(LinkList_iv_t), 0, Link, END);
  302.     cMethodFor(LinkList, gNew, LinkList_cm_gNew);
  303.     iMethodFor(LinkList, gRemoveFirst, LinkList_im_gRemoveFirst);
  304.     iMethodFor(LinkList, gAddFirst, LinkList_im_gAddFirst);
  305.     iMethodFor(LinkList, gInsertObjAt, LinkList_im_gInsertObjAt);
  306.     iMethodFor(LinkList, gDisposeAllNodes, LinkList_im_gDisposeAllNodes);
  307.     iMethodFor(LinkList, gSize, LinkList_im_gSize);
  308.     iMethodFor(LinkList, gDisposeFirst, LinkList_im_gDisposeFirst);
  309.     iMethodFor(LinkList, gDeepDisposeAllNodes, LinkList_im_gDeepDisposeAllNodes);
  310.     iMethodFor(LinkList, gEnterCriticalSection, LinkList_im_gEnterCriticalSection);
  311.     iMethodFor(LinkList, gDeepDisposeFirst, LinkList_im_gDeepDisposeFirst);
  312.     iMethodFor(LinkList, gFirst, LinkList_im_gFirst);
  313.     iMethodFor(LinkList, gDispose, LinkList_im_gDispose);
  314.     iMethodFor(LinkList, gLast, LinkList_im_gLast);
  315.     iMethodFor(LinkList, gDeepDisposeLast, LinkList_im_gDeepDisposeLast);
  316.     iMethodFor(LinkList, gSequence, LinkList_im_gSequence);
  317.     iMethodFor(LinkList, gCopy, LinkList_im_gCopy);
  318.     iMethodFor(LinkList, gRemoveLast, LinkList_im_gRemoveLast);
  319.     iMethodFor(LinkList, gDeepDispose, LinkList_im_gDeepDispose);
  320.     iMethodFor(LinkList, gLeaveCriticalSection, LinkList_im_gLeaveCriticalSection);
  321.     iMethodFor(LinkList, gDisposeLast, LinkList_im_gDisposeLast);
  322.     iMethodFor(LinkList, gStringRep, LinkList_im_gStringRep);
  323.     iMethodFor(LinkList, gIncNelm, LinkList_im_gIncNelm);
  324.     iMethodFor(LinkList, gAddLast, LinkList_im_gAddLast);
  325.     iMethodFor(LinkList, gDeepCopy, LinkList_im_gDeepCopy);
  326.  
  327.     ENABLE_THREADER;
  328.  
  329.     LEAVECRITICALSECTION(cs);
  330.  
  331.     return LinkList_c;
  332. }
  333.  
  334.  
  335.  
  336.